home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Arsenal Files 6
/
The Arsenal Files 6 (Arsenal Computer).ISO
/
business
/
splt231w.zip
/
THPGL2.ZIP
/
T085.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-05-01
|
771b
|
30 lines
10 OPEN "T085.PLT" FOR OUTPUT AS 1
20 PRINT #1,CHR$(27)+"%-1BBPIN"
30 PRINT #1,"PS7000,5000SC1,20,1,20,1SP1PU5,5"
40 PRINT "Input number of fractional decimal places in data"
50 INPUT F
60 'calculate number of fractional binary bits
70 F = F * 3.33
80 F = INT(F)
90 A = F
100 IF F>= 0 THEN F = 2*F ELSE F = 2*ABS(F)+1
110 F = 191+F
120 PRINT #1,"PE>"+CHR$(F);
130 'convert coordinate data to base 64
140 FOR J = 1 to 6
150 READ C
160 C = C * (2^A)
170 C = INT(C)
180 IF C >= 0 THEN C = 2*C ELSE C = 2*ABS(C)+1
190 WHILE C >= 64
200 PRINT #1, CHR$(63+(C MOD 64));
210 C = C\64
220 WEND
230 C = 191+C
240 PRINT #1, CHR$(C);
250 NEXT J
260 PRINT #1,";"
270 PRINT #1,"PUSP0PG;"
280 DATA 10.58,0,-5.58,10.67,-5,-10.67
290 END